home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / BASIC / 0006.ZIP / WORK < prev   
Encoding:
Text File  |  1980-01-01  |  504 b   |  19 lines
  1. C10    REM Program to watch the joystick ports
  2. C20    REM Will Fastie - 23 Dec 81
  3. 30    KEY OFF
  4.        CLS
  5.        STRIG ON
  6. 40    F$="#### #### (##)    #### #### (##)"
  7. 50    LOCATE 8,1
  8.        PRINT "   Joystick A        Joystick B"
  9. 60    PRINT "   X    Y   T        X    Y   T"
  10. 70    AX=STICK(0)
  11.        AY=STICK(1)
  12.        AT=STRIG(0) OR STRIG(1)
  13. 80    BX=STICK(2)
  14.        BY=STICK(3)
  15.        BT=STRIG(2) OR STRIG(3)
  16. 90    LOCATE 10,1
  17.        PRINT USING F$;AX,AY,AT,BX,BY,BT
  18. 100   GOTO 70
  19.